set c chr(10)
alloc fr 100
set spa ""
. delete("t")
exec @comspec "/c free.exe a: >t"
set fs open("t")
if !@fs err 
local bytes_read read(@fs,@fr,100)
close @fs
set spastr mid(@@fr,12,@bytes_read-24)
set len
tt:
if instr(@spastr,",",1)			;is there a comma?
	set fcp instr(@spastr,",",1)	
	set spastr mid(@spastr,1,@fcp-1)$mid(@spastr,@fcp+1,len(@spastr))
	goto tt
endif
text @spastr/1024$"K free"
waitkey
exit


err:
text "error on file t"
waitkey
exit